home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / gfx / cgraphx2.lha / CyberUpdate2.10 / CyberGraphX_Update next >
Text File  |  1995-08-31  |  50KB  |  1,451 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;    ______        __                  ______                     __  __   __
  4. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  5. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  6. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  7. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  8. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  9. ;         /_/                                        / /           
  10. ;                                                   /_/           
  11. ; CyberGraphX Update Installer ©1994-1995 by Robert C. Reiswig  (August-31-95)
  12. ;
  13. ; For use with PD and Registered CyberGraphX Only, not for Commercial use.
  14. ; For Frank Mariak : CyberGraphX!
  15. ;
  16. ;--------------------------------------------------------------------------------
  17. ; Installer suggestions or problems: rcr@netcom.com
  18. ; Any changes or additions must be run by me.
  19. ; © MCMXCV 
  20. ;********************************************************************************
  21.  
  22.  
  23. ;******************************************************************************** 
  24. ; Any new 3rd Party Program Drivers. Version of CyberGraphX & PAY 
  25. ;********************************************************************************
  26. ; 
  27. (set #cyberver "2.10")
  28.  
  29.  
  30. (message (cat "\nCyberGraphX V" #cyberver "\n~~~~~~~~~~~~~~~~~~\n"
  31.               "CyberVision64\n\nPicasso II\n\nSpectrum\n\nDomino\n\nRetina Z3 BLT\n\nPiccolo & Piccolo SD64"
  32.          )
  33. )
  34.  
  35. (welcome)
  36. ;******************************************************************************** 
  37. ;
  38. ; Read All System information 
  39. ;
  40. ;********************************************************************************
  41. (set cpu (database "cpu"))
  42. (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  43. (set vblank (database "vblank"))
  44. (set graphmem (database "graphics-mem"))
  45. (set totmem (database "total-mem"))
  46. (set osver (/ (getversion "LIBS:version.library") 65536))
  47. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  48. (set fastmem (- totmem graphmem))
  49.  
  50. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  51. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  52. ( if (= osver 41) ( (set workbench "4.0")) )))))
  53.  
  54.  
  55.  
  56. ;(run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  57. ;(set runstring (cat "search" " RAM:lan "))
  58. (set runstring (cat "search" " env:Language "))
  59.  
  60. (set english "")  (set german  "")
  61.  
  62. (set runstring1 (cat runstring "deutschland"))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  63. (set runstring1 (cat runstring "english"))   (if (= (run runstring1) 0) (set english1 "English"))      
  64. (set lang 0)
  65. (if (= english1 "English") (set lang 1))
  66.  
  67.  
  68. (set CyberDrawer "SYS:")
  69. (set were "sys")
  70.  
  71. ;******************************************************************************** 
  72. ;
  73. ; For some reason people seem to loose this directory
  74. ;
  75. ;********************************************************************************
  76. (if (< (exists "env:cybergrapics") 2) (makedir "env:cybergrapics") ) 
  77. (if (< (exists "envarc:cybergrapics") 2) (makedir "envarc:cybergrapics") ) 
  78.  
  79. ;******************************************************************************** 
  80. ;
  81. ;ASK DEFAULT LANG
  82. ;
  83. ;********************************************************************************
  84.  
  85.  
  86. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  87.  
  88. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  89.              (prompt #langQuestion)
  90.                      (help "Select a Language")
  91.                    (default lang)
  92.                  )
  93.           )
  94. )
  95.  
  96.  
  97.  
  98.  
  99. ;******************************************************************************** 
  100. ;
  101. ;English Information
  102. ;
  103. ;********************************************************************************
  104.  
  105.  
  106. (set #ThankYou (cat "\nWelcome to the Registered version of the CyberGraphX "
  107.                     "installer!\n\n\nTHANK\n\nYOU\n\nFrom the CyberGraphX Team."
  108.                )
  109. )
  110.  
  111. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  112.               "Software by:\n\nVision Factory Development"
  113.  
  114.               ;"\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  115.          )
  116. )
  117.  
  118.  
  119.  
  120.  
  121.  
  122. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  123.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  124.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  125.                     "PicassoII in linear mode *not segmented*\n\n"
  126.                     "68020 or higher\n\n"
  127.                     "2 MB of fast memory"                       
  128.                ) 
  129. )
  130.  
  131.  
  132. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  133.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  134.                     "68020 or higher, **You only have " cpu "**\n\n"
  135.                     "PicassoII in linear mode *not segmented*\n\n"
  136.                     "Kickstart 3.x\n\n"                     
  137.                     "2 MB of fast memory" 
  138.                )
  139. )  
  140.  
  141.  
  142. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  143.                    " \"" workbench "\" Version of OS\n\n"
  144.                    " \"" cpu "\" Processor\n\n "
  145.                    " \"" blank "\" Machine\n\n"
  146.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  147.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  148.               )
  149. )
  150.  
  151.  
  152. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  153.  
  154.  
  155. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  156.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  157.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  158.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  159.                           "YOU MUST DO THIS NOW!"
  160.                      )
  161. )
  162.  
  163.  
  164. (set #BackUpFiles "BackUp the Files")
  165. (set #DeleteFiles "Delete the Files")
  166. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software, if you select, to: ")
  167.  
  168.  
  169.  
  170.  
  171. (set #ask-MODEFILE "Which modefile should be installed ?")
  172. (set #15KHZ "15khz maximum")
  173. (set #31KHZ "31khz maximum")
  174. (set #35KHZ "35khz maximum")
  175. (set #38KHZ "38khz maximum")
  176. (set #48KHZ "48khz maximum")
  177. (set #57KHZ "57khz maximum")
  178. (set #64KHZ "64khz maximum")
  179.  
  180.  
  181. (set #wishtoinstall "Do you wish to install any of the following?")
  182. (set #order "Order Form")
  183. (set #guide "AmigaGuide File")
  184. (set #devdocs  "Developer Documentation")
  185. (set #versions "Versions - Shows Vers of CyberGraphX") 
  186. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphX\" will be created there!)")
  187. (set #SetEnv "SetEnv - Sets/Changes Env Vars")
  188.  
  189.  
  190. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  191.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  192.                    "you can open 24bit screens as standard intuition screens and that you "
  193.                    "can use all graphics.library functions on them as before. (with some "
  194.                    "limitations of course because of the missing color lookup table)\n\n"
  195.                    "Application to adjust the monitor parameters"
  196.               )  
  197. )
  198.    
  199.  
  200.  
  201. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  202.                    "As a registered user, you will get the latest registered "
  203.                    "release of CyberGraphX including a personalized graphics board driver.\n\n"
  204.                    "The first update of the graphics board driver is for free, any forthcoming "
  205.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  206.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  207.               )
  208. )
  209.  
  210.  
  211.  
  212. (set #REGtext (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  213.                "You can reach us at the following address:\n"
  214.                "          Frank Mariak       Thomas Sontowski        \n"
  215.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  216.                "        44135 Dortmund     51069 Köln            \n\n\n"
  217.                "Feel free to contact us by email or smail if you have any questions."
  218.           )
  219. )
  220.  
  221. (set #REGtext1 (cat "You can now register CyberGraphX from\n"
  222.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  223.                     "Europe/Africa/Aisa/Australia/Antarctia\n\n"
  224.                     "Frank Mariak\n"
  225.                     "Klosterstr. 7\n"
  226.                     "44135 Dortmund\n"
  227.                     "Germany\n\n"
  228.                     "Thomas Sontowski\n"
  229.                     "Bensberger Marktweg 15\n"
  230.                     "51069 Koeln\n"
  231.                     "Germany\n"               
  232.                )
  233. )
  234.  
  235. (set #REGtext2 (cat "You can now register CyberGraphX from\n"
  236.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  237.                     "North-America & South-America\n\n"
  238.                     "Robert Reiswig\n"
  239.                     "5396 Norma Way\n"
  240.                     "Livermore, California 94550-3802\n"
  241.                     "United States of America\n\n\n"
  242.                     "Please read the Orderform!"
  243.                                  
  244.                )
  245. )
  246.  
  247. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  248.                         "* In the Shareware release there are no custom modes available. "
  249.                         "In the registered version there are no limitations of this kind "
  250.                         "of course. You may define higher colordepth and refresh frequencies.\n\n"
  251.                         "* If you are registered we grant support if you have any problems "
  252.                         "or questions by email and/or smail. We can't do this for any person who "
  253.                         "has problems with the unregistered release !\n"
  254.                    )
  255. )
  256.  
  257.  
  258.  
  259. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  260.                   "By setting this variable, the planar-to-chunky conversion "
  261.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  262.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  263.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  264.              )
  265. )
  266.   
  267.  
  268. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  269.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  270.                      "become Hires-sprites (they are no longer doubled by "
  271.                      "the CyberGraphX-Software). "
  272.                      "This variable is identical to the tooltype HIRESSPRITE "
  273.                      "of older Picasso-monitor files."
  274.                 )
  275. )
  276.  
  277.  
  278. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  279.                      "By setting this variable, you can switch off 15bit modes to reduce "
  280.                      "screenmode list length. The Modes are still available but hidden."
  281.                 )
  282. )
  283.  
  284.  
  285. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  286.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) " 
  287.                      "will be placed on an CyberGraphX screens."
  288.                 )
  289. )
  290.  
  291.  
  292.  
  293.  
  294. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  295.  
  296.  
  297.  
  298.  
  299.  
  300. (set #CyberREG (cat "If you have a Registered version of CyberGraphX installed or you are running a CyberVision board, "
  301.                     "please select 'Quick Update'. "
  302.                )
  303. )
  304. (set #firstTime "First time install")
  305. (set #PDInstalled "PD version Installed")
  306. (set #REGInstalled "Registered version Installed")
  307. (set #quickupdate "Quick Update (New Libs & Drivers only)")
  308. (set #cvmode "CVMode (Screen Mode Creator)")
  309.  
  310.  
  311. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  312.  
  313.  
  314.  
  315. (set #NoUp    "No, Don't update") 
  316. (set #OnlyNew "Yes, Only if newer")
  317. (set #YesAll  "Yes, No matter what")
  318.  
  319.  
  320. ;******* New Text June 16, 1995
  321. (set #checkcustom (cat "\nThe installer will now check\n"
  322.                        "'SYS:Expansion/village.library.info'\n"
  323.                        "To see if the tool type MONITOR is set to CUSTOM.\n\n"
  324.                        "It would be best to set this to custom so that when you install "
  325.                        "the REG version 'ConvPicassoModes' can convert over all you Sceeen modes "
  326.                        "that you currently use correctly.  If you get an error message you can just skip it."
  327.                   )
  328. )
  329.  
  330.  
  331. (set #ask-Amax "Do you wish to install the CyberGraphX Amax Driver? (It only does 1024x768x256)")
  332. (set #where-Amax "Where do you wish to Install the Amax Driver?\n(The default is \"Work:\")")
  333.  
  334.  
  335. (set #changes (cat "\nStarting with this release, CyBERgraphics now has a new and better name:"
  336.                    "\n\n\nCyberGraphX\n\n\n"
  337.                    "Also starting with this release the Version Numbering has changed. This would "
  338.                    "have been 40.50 but will now be called 2.0 of CyberGraphX. This has been done "
  339.                    "to remove the link between the cybergraphics.library version and the CyberGraphX package version!"
  340.               )
  341. )
  342.  
  343. (set #AboutQuickie (cat "\nThis will ONLY UPDATE the CyberGraphX libraries and Monitor Driver(s).\n\n"
  344.                         "It is meant for CyberGraphX users. This includes Registered, Non-Registered CyberGraphX users along with CyberVision owners!\n\n"
  345.                         "It will update your system to version " #CyberVer
  346.                         " of the CyberGraphX package.\n\nIf this is your first time Installing CyberGraphX " 
  347.                         "then you will need to get the _complete_ Archive off Aminet first!"
  348.                     )
  349. )
  350.  
  351. ;************************ New Text July 20, 1995 *********************
  352. (set #yes "Yes - On")
  353. (set #no "No - Off") 
  354. (set #youwantto "You want to set:")
  355. (set #to "To:")
  356.  
  357. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  358.                      "By setting this variable, 8 bit deep screens are always opened "
  359.                      "in Fast memory. Useful with 1MB chip systems but you should "
  360.                      "avoid it with 2MB chip, because the older method is more "
  361.                      "compatible (no taglist changes etc.) "
  362.                 )
  363. ) 
  364.  
  365. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  366.                      "With this option on, non displayable planar bitmaps "
  367.                      "are allocated in fast memory. This options speeds up "
  368.                      "handling of planar bitmaps but could lead to problems "
  369.                      "with amiga graphics which insist on planar graphics "
  370.                      "placed in chip memory. Take care when using this option."
  371.                 )
  372. ) 
  373.  
  374. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  375.                     "If this option is enabled, the monitor switch on every "
  376.                     "CyberGraphX supported board is deactivated. This option is "
  377.                     "required for multi monitor systems."
  378.                 )
  379. ) 
  380.  
  381. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  382.                      "If this option is disabled, everytime a CyberGraphX display "
  383.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  384.                      "to increase chipmem access speed. You can avoid this by enabling "
  385.                      "this option. "
  386.                 )
  387. ) 
  388.  
  389.  
  390. (set #board (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  391.  
  392.  
  393. ;************************ New Text July 21, 1995 *********************
  394.  
  395. (set #updatecorrect "\n\n\nThe Monitor file updated correctly!\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  396. (set #updatePD "\n\n\nThe Monitor Updater is for Registered Users only.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  397. (set #updateBad "\n\n\nThere has been an error in the Monitor File update.\n\nThe Monitor File is corrupt, bad, renamed or it is missing. Please Check this!\n")
  398. (set #updateNoUpdate "\n\n\nCurrently there is no Updater for your Monitor File.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  399.  
  400.  
  401.  
  402. ;************************ New Text August 12, 1995 *********************
  403.  
  404. (set #NoUp     "No, Don't update") 
  405. (set #OnlyNew  "Yes, Only if newer")
  406. (set #OnlyNewB "Yes, Only if newer with backup")
  407. (set #YesAll   "Yes, No matter what with no backup")
  408.  
  409.  
  410. (set #thefollowing "The following have been backed up to\n\n\"SYS:Storage/CyberGraphX/libs\"")
  411.  
  412.  
  413. (set #cybergfx "\n\nNot backed up - cybergraphics.library")
  414. (set #cyberint "\n\nNot backed up - cyberintuition.library")
  415. (set #cyberlayers "\n\nNot backed up - cyberlayers.library")
  416. (set #cybervil "\n\nNot backed up - vilintuisup.library") 
  417. (set #gtlay "\n\nNot backed up - gtlayout.library")
  418.  
  419.  
  420.  
  421.  
  422.  
  423. ;******************************************************************************** 
  424. ;
  425. ;German Information
  426. ;
  427. ;********************************************************************************
  428.  
  429. (if (= LAN 0)
  430. (
  431.  
  432.  
  433. (set #By (cat "\n\nCyberGraphX Software\nVersion " #cyberver "\n\n\n\n"
  434.               "Software von:\n\nVision Factory Development"
  435.               ;"\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  436.          )
  437. )
  438.  
  439. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  440.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  441.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  442.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  443.                   "68020 oder höher\n\n"
  444.                   "2 MB FAST Ram"
  445.              )
  446. )
  447.  
  448. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  449.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  450.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  451.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  452.                    "Kickstart 3.x\n\n"
  453.                    "2 MB FAST Ram"
  454.               )
  455. )
  456.  
  457.  
  458. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  459.                    " Version \"" Workbench "\" des OS\n\n"
  460.                    " \"" cpu "\" Prozessor\n\n "
  461.                    " \"" blank "\" Gerät\n\n"
  462.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  463.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  464.               )
  465. )
  466.  
  467.  
  468. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  469.  
  470.  
  471. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  472.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  473.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  474.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  475.                           "YOU MUST DO THIS NOW!"
  476.                      )
  477. )
  478.  
  479.  
  480.  
  481. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  482. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  483. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  484. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  485. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  486. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  487. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  488. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  489.  
  490. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  491. (set #order "Bestellformular")
  492. (set #guide "AmigaGuide Datei")
  493. (set #devdocs  "Entwickler Dokumentation")
  494. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  495. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphX\" wird automatisch erstellt!)")
  496.  
  497. (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  498.                    "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß "
  499.                    "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und "
  500.                    "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können "
  501.                    "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n"
  502.                    "* Ein Monitor Modes Edit Tool"
  503.               )  
  504. )
  505.    
  506.  
  507. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  508.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  509.             "CyberGraphX mit einem auf sie persönlich registrierten Grafikkarten "
  510.             "Treiber. Neu erscheinende Versionen der CyberGraphX libraries "
  511.             "und tools werden weiterhin über elektronische Netze veröffentlicht "
  512.             "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt "
  513.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  514.             "persönlich zugestellt (per smail bzw. email)\n"
  515.             "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n"
  516.               )
  517. )
  518.  
  519.  
  520. (set #REGtext   (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  521.                      " Bei Fragen wenden Sie sich an:\n\n"
  522.                      "     Frank Mariak       Thomas Sontowski        \n"
  523.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  524.                      "      44135 Dortmund     51069 Köln            \n\n\n"
  525.                      "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren."
  526.                  )
  527.  
  528. )
  529.  
  530.  
  531.  
  532. (set #REGtext1 (cat "Registrierungs Adressen für\n"
  533.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  534.                     "Europa/Afrika/Asien/Australien\n\n"
  535.                     "Frank Mariak\n"
  536.                     "Klosterstr. 7\n"
  537.                     "44135 Dortmund\n"
  538.                     "Germany\n\n"
  539.                     "Thomas Sontowski\n"
  540.                     "Bensberger Marktweg 15\n"
  541.                     "51069 Koeln\n"
  542.                     "Germany\n"               
  543.                )
  544. )
  545.  
  546. (set #REGtext2 (cat "Registrierungsaddressen für\n"
  547.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  548.                     "North-America & South-America\n\n"
  549.                     "Robert Reiswig\n"
  550.                     "5396 Norma Way\n"
  551.                     "Livermore, California 94550-3802\n"
  552.                     "United States of America\n\n\n"
  553.                     "Please read the Orderform!"
  554.                                  
  555.                )
  556. )
  557.  
  558.  
  559.  
  560. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  561.                         "* Im Shareware release sind keine Custom Modes verfügbar. "
  562.                         "In der registrierten Version sind diese Beschränkungen natürlich nicht. "
  563.                         "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  564.                         "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. "
  565.                         "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, "
  566.                         "PhotoWorx, AmaxIV ... mehr werden folgen.\n"
  567.                    )
  568. )
  569.  
  570.  
  571.  
  572. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  573.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  574.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  575.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  576.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  577.              )
  578. )
  579.   
  580.  
  581. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  582.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  583.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  584.                      "verdoppelt). "
  585.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  586.                      "in der alten Picasso software)."
  587.                 )
  588. )
  589.  
  590.  
  591.  
  592. (set #NoUp    "Nein, nicht erneuern") 
  593. (set #OnlyNew "Ja, nur wenn neuer")
  594. (set #YesAll  "Ja, egal was installiert ist")
  595.  
  596.  
  597. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  598.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  599.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  600.                 )
  601. )
  602.  
  603. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  604.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) " 
  605.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  606.                 )
  607. )
  608.  
  609.  
  610.  
  611. (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen."))
  612.  
  613.  
  614. (set #CyberREG (cat "Haben Sie bereits eine Version von CyberGraphX installiert? Wenn das so ist, ueberschreibt die Installation die Monitordatei nicht ! Sie muessen diese Frage richtig beantworten!"))
  615. (set #firstTime "Erstinstallation")
  616. (set #PDInstalled "PD version installiert")
  617. (set #REGInstalled "Registrierte Version installiert")
  618. (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)")
  619. (set #cvmode "CVMode (Screen Mode Programm)")
  620.  
  621.  
  622. (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.")
  623.  
  624. (set #changes (cat "\nBeginnend mit dieser Veröffentlichung heißt das CyBERgraphics System nun anders:"
  625.                    "\n\n\nCyberGraphX\n\n\n"
  626.                    "Ebenso hat sich die Versionsnummernvergabe geändert. Es hätte wie bisher eigentlich "
  627.                    "40.50 sein müssen. Ab sofort ist es aber die Version 2.0 von CyberGraphX. Damit ist endlich der "
  628.                    "Zusammenhang zwischen der Version der cybergraphics.library und dem CyberGraphX Paket aufgehoben"
  629.               )
  630. )
  631.  
  632.  
  633. (set #AboutQuickie (cat "\n\nDieses Paket erneuert NUR die CyberGraphX libraries.\n\n"
  634.                         "Es ist sowohl für registrierte als auch unregistrierte CyberGraphX Benutzer gedacht!\n\n"
  635.                         "Es updated Ihr System auf Version " #CyberVer
  636.                         " der CyberGraphX libraries.\n\nWenn Sie CyberGraphX zum ersten Mal installieren, " 
  637.                         "brauchen Sie das _komplette_ Archiv vom Aminet!"
  638.                     )
  639. )
  640.  
  641.  
  642. ;********************** New Text July 20, 1995 *******************
  643. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  644.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  645.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  646.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  647.                      "alte Methode in einigen Punkten kompatibler ist."
  648.                 )
  649. ) 
  650.  
  651.  
  652. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  653.                      "Ist diese Option aktiv, werden nicht darzustellende "
  654.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  655.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  656.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  657.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  658.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  659.                 )
  660. ) 
  661.  
  662. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  663.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  664.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  665.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  666.                 )
  667. ) 
  668.  
  669. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  670.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  671.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  672.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  673.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  674.                 )
  675. ) 
  676.  
  677. (set #board (cat "\nBitte wählen Sie die Grafikkarte, deren Monitordatei Sie erneuern möchten:\n"))
  678.  
  679.  
  680. ;************************ New Text July 21, 1995 *********************
  681.  
  682.  
  683. (set #updatecorrect "\n\n\nDie Monitordatei wurde erneuert!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  684. (set #updatePD "\n\n\nDas Erneuern der Monitor funktioniert nur mit registrierten Monitordateien!!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  685. (set #updateBad "\n\n\nEs ist ein Fehler aufgetreten beim Erneuern.\n\nDie Monitordatei ist entweder defekt, umbenannt oder fehlt. Bitte überprüfen Sie das!\n")
  686. (set #updateNoUpdate "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  687.  
  688.  
  689. (set #yes "Ja")
  690. (set #no "Nein")
  691. (set #youwantto "Sie wollen die Änderung von:")
  692. (set #to "auf:")
  693.  
  694.  
  695.  
  696. ;************************ New Text August 12, 1995 *********************
  697.  
  698. (set #NoUp     "Nein, nicht erneuern") 
  699. (set #OnlyNew  "Ja, nur wenn neuer")
  700. (set #OnlyNewB "Ja, nur wenn neuer + Backup")
  701. (set #YesAll   "Ja, egal welche Version")
  702.  
  703.  
  704.  
  705. ;****
  706.  
  707.  
  708. (set #thefollowing "Folgende Dateien wurden gesichert in\n\n\"SYS:Storage/CyberGraphX/libs\"")
  709.  
  710.  
  711. (set #cybergfx "\n\nNicht gesichert - cybergraphics.library")
  712. (set #cyberint "\n\nNicht gesichert - cyberintuition.library")
  713. (set #cyberlayers "\n\nNicht gesichert - cyberlayers.library")
  714. (set #cybervil "\n\nNicht gesichert - vilintuisup.library") 
  715. (set #gtlay "\n\nNicht gesichert - gtlayout.library")
  716.  
  717.  
  718.  
  719. )
  720.  
  721. )
  722.  
  723. ;******************************************************************************** 
  724. ;
  725. ; Quick Update! *********************
  726. ;
  727. ;********************************************************************************
  728. (message #by)
  729. ;(message #Changes)
  730. (message #AboutQuickie)
  731.  
  732. ;*******************************************************************
  733. ;  Make dirs for backup
  734. ;*******************************************************************
  735.  
  736. (if (< (exists ("sys:Storage")) 2)  (makedir ("sys:Storage") (infos))  )
  737. (if (< (exists ("sys:Storage/CyberGraphX")) 2)  (makedir ("sys:Storage/CyberGraphX") (infos))  )
  738. (if (< (exists ("sys:Storage/CyberGraphX/libs")) 2)  (makedir ("sys:Storage/CyberGraphX/libs") (infos))  )
  739.  
  740.  
  741.  
  742. ;*******************************************************************
  743. ;  cybergraphics.library
  744. ;*******************************************************************
  745. (set vernum1 (getversion "sys:libs/cybergraphics.library"))
  746. (set ver1 (/ vernum1 65536))
  747. (set rev1 (- vernum1 (* ver1 65536) ) )
  748.  
  749.  
  750. (set vernum2 (getversion "libs/cybergraphics.library"))
  751. (set ver2 (/ vernum2 65536))
  752. (set rev2 (- vernum2 (* ver2 65536) ) )
  753.  
  754.  
  755.  
  756. (set pick 0)
  757.  
  758. (set pick (askchoice
  759.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  760.         (prompt ("'cybergraphics.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cybergraphics.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  761.         (help " ")        
  762.               (default 2)
  763.       )
  764. )
  765.  
  766.  
  767.  
  768. (if (= pick 1)
  769.  
  770.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  771.  
  772. )
  773.  
  774.  
  775.  
  776. (if (= pick 2)
  777.    (
  778.  
  779.      (set sizeneed (getsize "libs/cybergraphics.library"))
  780.      (set space    (getdiskspace "sys:"))
  781.  
  782.  
  783.      (set ok 0)
  784.      (set ##ver (cat ver1 "." rev1) ) 
  785.      (set #cybergfx (cat "\n\nNo room on SYS: for cybergraphics.library" ##ver))
  786.      
  787.      (if (> space sizeneed)
  788.         (
  789.      
  790.         (copyfiles (source "sys:libs/cybergraphics.library")
  791.                    (dest "SYS:Storage/CyberGraphX/libs")
  792.                    (newname (cat "cybergraphics.library" ver1 "." rev1))
  793.         )  
  794.  
  795.  
  796.  
  797.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  798.      
  799.         (set #cybergfx (cat "\n\ncybergraphics.library" ##ver))
  800.         (set ok 1)
  801.       
  802.         )
  803.      )
  804.      
  805.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  806.      (if (= ok 0) (message (cat #noroom "cybergraphics.library" ##ver  
  807.                             "\n\nThe newer\n\ncybergraphics.library " ver2 "." rev2
  808.                             "\n\nwas not copied over/updated to SYS:Libs"
  809.                             )
  810.                   ) 
  811.      )
  812.  
  813.  
  814.    )
  815.  
  816. )
  817.  
  818.  
  819.  
  820.  
  821.  
  822.  
  823. (if (= pick 3)
  824.  
  825.         (copyfiles
  826.             (prompt "Copying 'cybergraphics.library' to Libs:")
  827.         (source "libs/cybergraphics.library")
  828.             (dest "SYS:Libs")
  829.             (confirm)
  830.             (infos) (help " ")
  831.          )
  832.  
  833. )
  834.  
  835.  
  836.  
  837. ;*******************************************************************
  838. ;  cyberintuition.library
  839. ;*******************************************************************
  840.  
  841.  
  842. (set vernum1 (getversion "sys:libs/cyberintuition.library"))
  843. (set ver1 (/ vernum1 65536))
  844. (set rev1 (- vernum1 (* ver1 65536) ) )
  845.  
  846.  
  847. (set vernum2 (getversion "libs/cyberintuition.library"))
  848. (set ver2 (/ vernum2 65536))
  849. (set rev2 (- vernum2 (* ver2 65536) ) )
  850.  
  851.  
  852.  
  853. (set pick 0)
  854.  
  855. (set pick (askchoice
  856.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  857.         (prompt ("'cyberintuition.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberintuition.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  858.         (help " ")        
  859.               (default 2)
  860.       )
  861. )
  862.  
  863.  
  864.  
  865. (if (= pick 1)
  866.  
  867.         (copylib (source "libs/cyberintuition.library")    (dest "SYS:Libs"))
  868.  
  869. )
  870.  
  871.  
  872.  
  873. (if (= pick 2)
  874.    (
  875.  
  876.     (set sizeneed (getsize "libs/cyberintuition.library"))
  877.      (set space    (getdiskspace "sys:"))
  878.  
  879.  
  880.      (set ok 0)
  881.      (set ##ver (cat ver1 "." rev1) ) 
  882.      (set #cyberint (cat "\n\nNo room on SYS: for cyberintuition.library" ##ver))
  883.      
  884.      (if (> space sizeneed)
  885.         (
  886.      
  887.         (copyfiles (source "sys:libs/cyberintuition.library")
  888.                    (dest "SYS:Storage/CyberGraphX/libs")
  889.                    (newname (cat "cyberintuition.library" ver1 "." rev1))
  890.         )  
  891.  
  892.  
  893.  
  894.         (copylib (source "libs/cyberintuition.library") (dest "SYS:Libs"))
  895.      
  896.         (set #cyberint (cat "\n\ncyberintuition.library" ##ver))
  897.         (set ok 1)
  898.       
  899.         )
  900.      )
  901.      
  902.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  903.      (if (= ok 0) (message (cat #noroom "cyberintuition.library" ##ver  
  904.                             "\n\nThe newer\n\ncyberintuition.library " ver2 "." rev2
  905.                             "\n\nwas not copied over/updated to SYS:Libs"
  906.                             )
  907.                   ) 
  908.      )
  909.  
  910.  
  911.  
  912.    )
  913.  
  914. )
  915.  
  916.  
  917.  
  918.  
  919.  
  920. (if (= pick 3)
  921.  
  922.         (copyfiles
  923.             (prompt "Copying 'cyberintuition.library' to Libs:")
  924.         (source "libs/cyberintuition.library")
  925.             (dest "SYS:Libs")
  926.             (confirm)
  927.             (infos) (help " ")
  928.          ) 
  929.  
  930. )
  931.  
  932.  
  933.  
  934.  
  935. ;*******************************************************************
  936. ;  cyberlayers.library
  937. ;*******************************************************************
  938.  
  939.  
  940. (set vernum1 (getversion "sys:libs/cyberlayers.library"))
  941. (set ver1 (/ vernum1 65536))
  942. (set rev1 (- vernum1 (* ver1 65536) ) )
  943.  
  944.  
  945. (set vernum2 (getversion "libs/cyberlayers.library"))
  946. (set ver2 (/ vernum2 65536))
  947. (set rev2 (- vernum2 (* ver2 65536) ) )
  948.  
  949.  
  950.  
  951. (set pick 0)
  952.  
  953. (set pick (askchoice
  954.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  955.         (prompt ("'cyberlayers.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberlayers.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  956.         (help " ")        
  957.               (default 2)
  958.       )
  959. )
  960.  
  961.  
  962.  
  963. (if (= pick 1)
  964.  
  965.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  966.  
  967. )
  968.  
  969.  
  970.  
  971. (if (= pick 2)
  972.    (
  973.  
  974.      (set sizeneed (getsize "libs/cyberlayers.library"))
  975.      (set space    (getdiskspace "sys:"))
  976.  
  977.  
  978.      (set ok 0)
  979.      (set ##ver (cat ver1 "." rev1) ) 
  980.      (set #cyberlayers (cat "\n\nNo room on SYS: for cyberlayers.library" ##ver))
  981.      
  982.      (if (> space sizeneed)
  983.         (
  984.      
  985.         (copyfiles (source "sys:libs/cyberlayers.library")
  986.                    (dest "SYS:Storage/CyberGraphX/libs")
  987.                    (newname (cat "cyberlayers.library" ver1 "." rev1))
  988.         )  
  989.  
  990.  
  991.  
  992.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  993.      
  994.         (set #cyberlayers (cat "\n\ncyberlayers.library" ##ver))
  995.         (set ok 1)
  996.       
  997.         )
  998.      )
  999.      
  1000.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  1001.      (if (= ok 0) (message (cat #noroom "cyberlayers.library" ##ver  
  1002.                             "\n\nThe newer\n\ncyberlayers.library " ver2 "." rev2
  1003.                             "\n\nwas not copied over/updated to SYS:Libs"
  1004.                             )
  1005.                   ) 
  1006.      )
  1007.  
  1008.  
  1009.  
  1010.  
  1011.    )
  1012.  
  1013. )
  1014.  
  1015.  
  1016.  
  1017.  
  1018. (if (= pick 3)
  1019.  
  1020.         (copyfiles
  1021.             (prompt "Copying 'cyberlayers.library' to Libs:")
  1022.         (source "libs/cyberlayers.library")
  1023.             (dest "SYS:Libs")
  1024.             (confirm)
  1025.             (infos) (help " ")
  1026.          ) 
  1027.  
  1028. )
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034. ;*******************************************************************
  1035. ;  vilintuisup.library
  1036. ;*******************************************************************
  1037.  
  1038.  
  1039. (set vernum1 (getversion "sys:libs/vilintuisup.library"))
  1040. (set ver1 (/ vernum1 65536))
  1041. (set rev1 (- vernum1 (* ver1 65536) ) )
  1042.  
  1043.  
  1044. (set vernum2 (getversion "libs/vilintuisup.library"))
  1045. (set ver2 (/ vernum2 65536))
  1046. (set rev2 (- vernum2 (* ver2 65536) ) )
  1047.  
  1048.  
  1049.  
  1050. (set pick 0)
  1051.  
  1052. (set pick (askchoice
  1053.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  1054.         (prompt ("'vilintuisup.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'vilintuisup.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  1055.         (help " ")        
  1056.               (default 2)
  1057.       )
  1058. )
  1059.  
  1060.  
  1061. (if (= pick 1)
  1062.  
  1063.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  1064.  
  1065. )
  1066.  
  1067.  
  1068.  
  1069. (if (= pick 2)
  1070.    (
  1071.  
  1072.      (set sizeneed (getsize "libs/vilintuisup.library"))
  1073.      (set space    (getdiskspace "sys:"))
  1074.  
  1075.  
  1076.      (set ok 0)
  1077.      (set ##ver (cat ver1 "." rev1) ) 
  1078.      (set #cybervil (cat "\n\nNo room on SYS: for vilintuisup.library" ##ver))
  1079.      
  1080.      (if (> space sizeneed)
  1081.         (
  1082.      
  1083.         (copyfiles (source "sys:libs/vilintuisup.library")
  1084.                    (dest "SYS:Storage/CyberGraphX/libs")
  1085.                    (newname (cat "vilintuisup.library" ver1 "." rev1))
  1086.         )  
  1087.  
  1088.  
  1089.  
  1090.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  1091.      
  1092.         (set #cybervil (cat "\n\nvilintuisup.library" ##ver))
  1093.         (set ok 1)
  1094.       
  1095.         )
  1096.      )
  1097.      
  1098.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  1099.      (if (= ok 0) (message (cat #noroom "vilintuisup.library" ##ver  
  1100.                             "\n\nThe newer\n\nvilintuisup.library " ver2 "." rev2
  1101.                             "\n\nwas not copied over to SYS:Libs"
  1102.                             )
  1103.                   ) 
  1104.      )
  1105.  
  1106.        
  1107.  
  1108.  
  1109.  
  1110.  
  1111.    )
  1112.  
  1113. )
  1114.  
  1115.  
  1116.  
  1117.  
  1118. (if (= pick 3)
  1119.  
  1120.         (copyfiles
  1121.             (prompt "Copying 'vilintuisup.library' to Libs:")
  1122.         (source "libs/vilintuisup.library")
  1123.             (dest "SYS:Libs")
  1124.             (confirm)
  1125.             (infos) (help " ")
  1126.          ) 
  1127.  
  1128. )
  1129.  
  1130.  
  1131. ;*******************************************************************
  1132. ;  gtlayout.library
  1133. ;*******************************************************************
  1134.  
  1135.  
  1136. (set vernum1 (getversion "sys:libs/gtlayout.library"))
  1137. (set ver1 (/ vernum1 65536))
  1138. (set rev1 (- vernum1 (* ver1 65536) ) )
  1139.  
  1140.  
  1141. (set vernum2 (getversion "libs/gtlayout.library"))
  1142. (set ver2 (/ vernum2 65536))
  1143. (set rev2 (- vernum2 (* ver2 65536) ) )
  1144.  
  1145.  
  1146.  
  1147. (set pick 0)
  1148.  
  1149. (set pick (askchoice
  1150.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  1151.         (prompt ("'gtlayout.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'gtlayout.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  1152.         (help " ")        
  1153.               (default 2)
  1154.       )
  1155. )
  1156.  
  1157.  
  1158. (if (= pick 1)
  1159.  
  1160.         (copylib (source "libs/gtlayout.library") (dest "SYS:Libs"))
  1161.  
  1162. )
  1163.  
  1164.  
  1165.  
  1166. (if (= pick 2)
  1167.    (
  1168.  
  1169.       (set sizeneed (getsize "libs/gtlayout.library"))
  1170.      (set space    (getdiskspace "sys:"))
  1171.  
  1172.  
  1173.      (set ok 0)
  1174.      (set ##ver (cat ver1 "." rev1) ) 
  1175.      (set #gtlay (cat "\n\nNo room on SYS: for gtlayout.library" ##ver))
  1176.      
  1177.      (if (> space sizeneed)
  1178.         (
  1179.      
  1180.         (copyfiles (source "sys:libs/gtlayout.library")
  1181.                    (dest "SYS:Storage/CyberGraphX/libs")
  1182.                    (newname (cat "gtlayout.library" ver1 "." rev1))
  1183.         )  
  1184.  
  1185.  
  1186.  
  1187.         (copylib (source "libs/gtlayout.library") (dest "SYS:Libs"))
  1188.      
  1189.         (set #gtlay (cat "\n\ngtlayout.library" ##ver))
  1190.         (set ok 1)
  1191.       
  1192.         )
  1193.      )
  1194.      
  1195.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  1196.      (if (= ok 0) (message (cat #noroom "gtlayout.library" ##ver  
  1197.                             "\n\nThe newer\n\ngtlayout.library " ver2 "." rev2
  1198.                             "\n\nwas not copied over to SYS:Libs"
  1199.                             )
  1200.                   ) 
  1201.      )
  1202.  
  1203.         
  1204.  
  1205.  
  1206.  
  1207.  
  1208.    )
  1209.  
  1210. )
  1211.  
  1212.  
  1213.  
  1214.  
  1215. (if (= pick 3)
  1216.  
  1217.         (copyfiles
  1218.             (prompt "Copying 'vilintuisup.library' to Libs:")
  1219.         (source "libs/gtlayout.library")
  1220.             (dest "SYS:Libs")
  1221.             (confirm)
  1222.             (infos) (help " ")
  1223.          ) 
  1224.  
  1225. )
  1226.  
  1227.  
  1228.  
  1229.  
  1230. ;*******************************************************************
  1231. ;  Let then know that has been backed up!
  1232. ;*******************************************************************
  1233.  
  1234.  
  1235.  
  1236. (message (cat #thefollowing #cybergfx #cyberint #cyberlayers #cybervil #gtlay)) 
  1237.  
  1238.  
  1239.  
  1240. ;******************************************************************************** 
  1241. ;
  1242. ; Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  1243. ; This is here just for backup!
  1244. ;
  1245. ;********************************************************************************
  1246.  
  1247. (if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  1248. (if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  1249.  
  1250.  
  1251. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  1252.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  1253.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1254.       )
  1255. )
  1256.  
  1257. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor")) 1)
  1258.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  1259.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1260.       )
  1261. )
  1262.  
  1263. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  1264.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  1265.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1266.       )
  1267. )
  1268.  
  1269. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  1270.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  1271.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1272.       )
  1273. )
  1274.  
  1275.  
  1276. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  1277.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0) 
  1278.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1279.       )
  1280. )
  1281.  
  1282. (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1)
  1283.       (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0) 
  1284.          (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1285.       )
  1286. )
  1287.  
  1288. (if (< (exists ("EnvArc:CyberGraphics/CyberVisionMonitor")) 1)
  1289.       (if (> (exists ("EnvArc:CyberVisionMonitor")) 0) 
  1290.          (copyfiles (source "EnvArc:CyberVisionMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1291.       )
  1292. )
  1293.  
  1294. (if (< (exists ("EnvArc:CyberGraphics/A2410Monitor")) 1)
  1295.       (if (> (exists ("EnvArc:A2410Monitor")) 0) 
  1296.          (copyfiles (source "EnvArc:A2410Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1297.       )
  1298. )
  1299.  
  1300.  
  1301.  
  1302. ;******************************************************************************** 
  1303. ;
  1304. ;  Update the Monitor file ..
  1305. ;
  1306. ;
  1307. ;********************************************************************************
  1308.  
  1309.  
  1310.  
  1311. (if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
  1312. (if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
  1313. (if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
  1314. (if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
  1315. (if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  1316. (if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  1317. (if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
  1318.  
  1319. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  1320.                                "Retina Z3 BLT" "Piccolo SD64" "CyberVision64"
  1321.              (prompt #board)
  1322.                      (help "Select a Gfx Board")
  1323.                    (default #BGuess)
  1324.                  )
  1325.           )
  1326. )
  1327.  
  1328.  
  1329. (if (= board 0) (set #BOARD "Picasso") )
  1330. (if (= board 1) (set #BOARD "Spectrum") )
  1331. (if (= board 2) (set #BOARD "Piccolo") ) 
  1332. (if (= board 3) (set #BOARD "Domino") )
  1333. (if (= board 4) (set #BOARD "RetinaZ3") )
  1334. (if (= board 5) (set #BOARD "PiccoSD64") )
  1335. (if (= board 6) (set #BOARD "CyberVision") )
  1336.  
  1337.  
  1338. (set BackDirText "SYS:Storage/CyberGraphX")
  1339.  
  1340. (if (< (exists (BackDirText)) 2)  (makedir (BackDirText) (infos))  )
  1341.  
  1342. (if (< (exists (tackon BackDirText "devs")) 2)
  1343.           (makedir (tackon BackDirText "devs") (infos))
  1344. )
  1345.  
  1346. (if (< (exists (tackon BackDirText "devs/monitors")) 2)
  1347.         (makedir (tackon BackDirText "devs/monitors") (infos))
  1348. )
  1349.  
  1350.  
  1351.  
  1352. (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  1353.                   (copyfiles (source (cat "Devs:Monitors/" #BOARD)) (dest (tackon BackDirText "devs/monitors"))
  1354.                     (infos)
  1355.                     (newname (cat (tackon BackDirText "devs/monitors/") #BOARD ".backup"))
  1356.                   )
  1357. ) 
  1358.  
  1359.  
  1360. (set #updated 0)
  1361.  
  1362.  
  1363. (if (= board 0)
  1364.   (
  1365.     (set #Update (run "Updaters/UpdatePicassoII devs:monitors/Picasso") ) 
  1366.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1367.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1368.     (if (= #update 10) (message #updateBad) )       
  1369.     (set #updated 1)
  1370.   )
  1371. )
  1372.  
  1373. (if (= board 1)
  1374.   (
  1375.     (set #Update (run "Updaters/UpdateSpectrum devs:monitors/Spectrum") ) 
  1376.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1377.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1378.     (if (= #update 10) (message #updateBad) )       
  1379.     (set #updated 1)
  1380.   )
  1381. )
  1382.  
  1383. (if (= board 2)
  1384.   (
  1385.     (set #Update (run "Updaters/UpdatePiccolo devs:monitors/Piccolo") ) 
  1386.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1387.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1388.     (if (= #update 10) (message #updateBad) )       
  1389.     (set #updated 1)
  1390.   )
  1391. )
  1392.  
  1393. (if (= board 3)
  1394.   (
  1395.     
  1396.    (message (cat #updateNoUpdate (tackon BackDirText "devs/monitors/") #BOARD ".backup"))    
  1397.  
  1398.   )
  1399. )
  1400.  
  1401. (if (= board 4)
  1402.   (
  1403.     (set #Update (run "Updaters/UpdateRetinaZ3 devs:monitors/RetinaZ3") ) 
  1404.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1405.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1406.     (if (= #update 10) (message #updateBad) )       
  1407.     (set #updated 1)
  1408.   )
  1409. )
  1410.  
  1411. (if (= board 5)
  1412.   (
  1413.     (set #Update (run "Updaters/UpdatePiccoSD64 devs:monitors/PiccoSD64") ) 
  1414.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1415.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1416.     (if (= #update 10) (message #updateBad) )       
  1417.     (set #updated 1)
  1418.   )
  1419. )
  1420.  
  1421. (if (= board 6)
  1422.   (
  1423.  
  1424.     (message (cat #updateNoUpdate (tackon BackDirText "devs/monitors/") #BOARD ".backup"))    
  1425.    
  1426.   )
  1427. )
  1428.  
  1429.  
  1430.  
  1431.  
  1432.  
  1433. ;*******************************************************************
  1434. ;  EEENNNDDD
  1435. ;*******************************************************************
  1436.  
  1437. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1438. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1439.  
  1440. (run (cat "run " #mpath "/multiview docs/Changes.txt") )
  1441. (delete "ram:lan")
  1442. (set @default-dest "sys:")
  1443. (exit "Quick Update Complete!")
  1444.  
  1445.  
  1446.  
  1447.  
  1448.  
  1449.  
  1450.  
  1451.